0 REM    WELLE:ERDBALL - PLAYER         --------------------------------------(null)
1 LW=PEEK(186):POKE808,225:POKE775,20:POKE788,52:IFLW=0THENLW=8
2 POKE53280,0:POKE53281,0:IFZ=0THENGOSUB600
10 IFZ=0THENZ=1:FORA=49154TO49317:READI:POKEA,I:NEXT:PRINT"[147]":LOAD"[194]   01*",LW,1
11 IFZ=1THENZ=2:PRINT"[147]":LOAD"[194]   00*",LW,1
12 IFZ=2THENZ=3:GOSUB620:SYS49154:LOAD"[194]   02*",LW,1
13 IFZ=3THENZ=4:SYS49152:GOTO102
102 SYS828,0:SYS828,1
103 GETA$:IFA$=""THENGOTO103
104 IFA$=" "ANDB=0THENB=1:SYS828,0:GOTO103
105 IFA$=" "ANDB=1THENB=0:SYS828,1:GOTO103
106 IFA$="/"THENSYS828,2:GOTO103
107 IFA$=CHR$(133)THEN SYS828,0:LOAD"[194]   02*",LW,1
108 IFA$=CHR$(134)THEN SYS828,0:LOAD"[194]   03*",LW,1
109 IFA$=CHR$(135)THEN SYS828,0:LOAD"[194]   05*",LW,1
110 IFA$=CHR$(136)THEN SYS828,0:LOAD"[194]   04*",LW,1
111 IFA$="Q"THEN GOTO190
189 GOTO103
190 POKE53265,PEEK(53265)AND223:POKE53272,(PEEK(53272)AND240)OR4:PRINTCHR$(14)
191 PRINT"[147] [215]IR BEDANKEN UNS BEI [201]HNEN FUER [201]HRE  "
192 PRINT" [193]UFMERKSAMKEIT UND WUENSCHEN [201]HNEN    "
193 PRINT" WEITERHIN VIEL [197]RFOLG !               "
194 PRINT"                                       "
195 PRINT" [205]IT FREUNDLICHEN [199]RUESSEN...          "
196 PRINT"                                       "
197 PRINT" WELLE:ERDBALL                        [144]"
198 PRINT"[144]":SYS828,0:END
199 POKE53265,PEEK(53265)AND223:POKE53272,(PEEK(53272)AND240)OR4:PRINT"[147]"
200 DATA173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
220 DATA4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
240 DATA40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
260 DATA114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
280 DATA173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
300 DATA24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
320 DATA162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
340 DATA142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
360 DATA192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
380 DATA252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
400 DATA254,132,253,96
600 PRINTCHR$(14)
601 PRINT"[147][155]  [200]ALLO, HIER SPRICHT [215][197][204][204][197]:[197][210][196][194][193][204][204] !  "
602 PRINT"[155]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]  "
603 PRINT" [199]UTEN [212]AG, SEHR VEREHRTER [205]ENSCH.     "
604 PRINT" [215]IR HOFFEN, [211]IE BENUTZEN GERADE EINEN "
605 PRINT" [195][207][205][205][207][196][207][210][197] [195]=64 UND KEINEN [197]MULATOR.   "
606 PRINT" [198]ALLS LETZTERES DER [198]ALL SEIN SOLLTE, "
607 PRINT" BITTEN WIR [211]IE, SICH EINEN RICHTIGEN  "
608 PRINT" [210]ECHNER ZU BESCHAFFEN, WOZU [211]IE 3 [212]AGE"
609 PRINT" [218]EIT HABEN, BEVOR [201]HNEN DIESES        "
610 PRINT" [208]ROGRAMM [201]HRE [198]ESTPLATTE FORMATIERT.  "
611 PRINT" [196]AS [193]BSPIEL-[208]ROGRAMM WIRD NUN IN [201]HREN"
612 PRINT" [210]ECHNER TRANSFERIERT.                 "
613 PRINT" [194]ITTE HABEN [211]IE EINEN [205]OMENT [199]EDULD. ";
614 GETA$:IFA$=""THENZA=ZA+1:IFZA=900THENZA=0:RETURN
615 IFA$<>""THENZA=0:RETURN
616 GOTO614
619 RETURN
620 REM
621 PRINTCHR$(14)
622 PRINT"[147][155] [201]NFORMATIONEN ZU ALLEN [212]HEMEN RUND UM "
623 PRINT" [215][197][204][204][197]:[197][210][196][194][193][204][204] ERHALTEN [211]IE UNTER...   "
624 PRINT" [201]NTERNETZ  : WWW.WELLE-E.DE           "
625 PRINT" [210]ADIO-[195]LUB : [215]ELLE:[197]RDBALL-[200]OERER [195]LUB"
626 PRINT"              Z.[200]. [205]IKE [194]AETZ          "
627 PRINT"              [198]RIESENSTR. 8            "
628 PRINT"              96515 [211]ONNEBERG          "
629 PRINT" [215]EITERHIN BESCHAFFEN [211]IE SICH BITTE   "
630 PRINT" EINE [195][205][196]-[211][195][208][213] FUER [201]HREN [210]ECHNER UND  "
631 PRINT" ERREICHEN [211]IE, WIE [205]ILLIONEN ANDERER  "
632 PRINT" [200]OERER, DIE [205][197][212][193][204] [196][213][211][212] [200]OECHSTPUNKTE !"
633 PRINT" [201]NFORMATIONEN ZU [205][197][212][193][204] [196][213][211][212]:          "
634 PRINT" [201]NTERNETZ : WWW.PROTOVISION-ONLINE.DE";
635 GETA$:IFA$=""THENZA=ZA+1:IFZA=900THENZA=0:RETURN
636 IFA$<>""THENZA=0:RETURN
637 GOTO635
639 RETURN
1013 PRINT" HILFSPROGRAMM FUER DEN SOUNDMONITOR"
1014 PRINT" SYS828,0:HAELT DAS LIED AN (PAUSE AN) "
1015 PRINT" SYS828,1:SETZT DAS LIED FORT(PAUSE AUS)
1016 [153]" SYS828,2:STARTET DAS LIED NEU         "
1017 [153]" SYS828,X,Y:SPIELT STEPX BIS STEPY    "
1018 [153]" Z.B. BEI KLEINEREN MUSIKPARTS IM      "
1019 [153]" PROGRAMM (GAME OVER LIED)